perm filename LIBMAC.OND[PAS,SYS]1 blob
sn#371172 filedate 1978-09-07 generic text, type T, neo UTF8
1) U:LIBMAC.MAC[PAS,EJG] and 2) LIBMAC.MAC[1,KO] 8-01-78 17:15 pages 1,1
**** File 1) U:LIBMAC.MAC[PAS,EJG], Page 29 line 98
1) IDPB AC0 ,FILBTP(REG) ;DEPOSIT CHARACTER IN OUTPUT BUFFER
**** File 2) LIBMAC.MAC[1,KO], Page 27 line 98
2) CAIN AC0 ,"←"
2) MOVEI AC0 ,30 ;Ko: convert to Stanford underbar
2) IDPB AC0 ,FILBTP(REG) ;DEPOSIT CHARACTER IN OUTPUT BUFFER
***************
**** File 1) U:LIBMAC.MAC[PAS,EJG], Page 29 line 114
1) IDPB AC0 ,FILBTP(REG) ;DEPOSIT IN OUTPUT BUFFER
**** File 2) LIBMAC.MAC[1,KO], Page 27 line 116
2) CAIN AC0 ,"←"
2) MOVEI AC0 ,30 ;Ko: convert to Stanford underbar
2) IDPB AC0 ,FILBTP(REG) ;DEPOSIT IN OUTPUT BUFFER
***************
**** File 1) U:LIBMAC.MAC[PAS,EJG], Page 30 line 137
1) CAIE AC0 ,12 ;LINE FEED?
1) JRST GETCNT ;NO - FORGET IT
1) AOS FILEOL(REG) ;SET EOLN
1) SETZ AC1 , ;CLEARS CHARACTERCOUNT
**** File 2) LIBMAC.MAC[1,KO], Page 28 line 137
2) CAIN AC0 ,12 ;LINE FEED?
2) JRST GETLF
2) CAIN AC0 ,30 ;This is the stupid Stanford underbar
2) jrst getsbr ;Stanford '←'
2) jrst getcnt ;ignore it
2) GETLF: AOS FILEOL(REG) ;SET EOLN
2) SETZ AC1 , ;CLEARS CHARACTERCOUNT
***************
**** File 1) U:LIBMAC.MAC[PAS,EJG], Page 30 line 144
1) GETTAB: TLNE AC1 ,7 ;IS THIS TAB ON
**** File 2) LIBMAC.MAC[1,KO], Page 28 line 147
2) getsbr: movei ac0 ,"←" ;convert Stanford underbar to '←'
2) jrst getnew
2) GETTAB: TLNE AC1 ,7 ;IS THIS TAB ON
***************
**** File 1) U:LIBMAC.MAC[PAS,EJG], Page 39 line 72
1) CAIN AC0 ," " ;LEADING BLANKS
1) JRST GTSGN ;YES - OVERREAD THEM
**** File 2) LIBMAC.MAC[1,KO], Page 37 line 72
2) CAIE AC0 ," " ;LEADING BLANKS
2) CAIN AC0 ,"," ;AND LEADING COMMAS TOO
2) JRST GTSGN ;YES - OVERREAD THEM
***************